home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5840.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  53 lines
  1. 5 GOTO10010
  2. 10 DATA1/p,1,10,20
  3. 20 DATA1/pý,t,10,30
  4. 30 DATA1/pü,"tüž/(n-1)!        (n=1,2,3,¥¥¥)",20,40
  5. 40 DATA1/(pñm),e’ï“,30,50
  6. 50 DATA1/(p(p+m)),1/m¥(1-e‰ï“),40,60
  7. 60 DATA1/(pý(p+m)),1/mý¥(e‰ï“+mt-1),50,70
  8. 70 DATAa/(pý+aý),sinat,60,80
  9. 80 DATAp/(pý+aý),cosat,70,90
  10. 90 DATA1/(pý+aý),1/a¥sinat,80,100
  11. 100 DATAa/(pý-aý),sinhat,90,110
  12. 110 DATAp/(pý-aý),coshat,100,120
  13. 120 DATA1/(pý-aý),1/a¥sinhat,110,130
  14. 130 DATA1/(p(pý+aý)),1/aý¥(1-cosat),120,140
  15. 140 DATA1/(pý(pý+aý)),1/aþ¥(at-sinat),130,150
  16. 150 DATA1/((p+m)(p+n)),1/(n-m)¥(e‰ï“-e‰ü“),140,160
  17. 160 DATAp/((p+m)(p+n)),1/(m-n)¥(me‰ï“-ne‰ü“),150,170
  18. 170 DATA1/(p+m)ý,te‰ï“,160,180
  19. 180 DATA1/(p+m)ü,"1/(n-1)!¥tüže‰ï“  (n=1,2,3,¥¥¥)",170,190
  20. 190 DATAp/(p+m)ý,e‰ï“(1-mt),180,200
  21. 200 DATA1/(p(p+m)ý),1/mý¥(1-(1+mt)e‰ï“),190,210
  22. 210 DATA1/(pý(p+m)ý),t/mý-2/mþ+2/mþ¥e‰ï“+t/mý¥e‰ï“,200,220
  23. 220 DATA(p+n)/(p+m)ý,((n-m)t+1)e‰ï“,210,230
  24. 230 DATA1/(pý+aý)ý,1/2aþ¥(sinat-at¥cosat),220,240
  25. 240 DATAp/(pý+aý)ý,t/2a¥sinat,230,250
  26. 250 DATApý/(pý+aý)ý,1/2a¥(sinat+at¥cosat),240,260
  27. 260 DATA(pý-aý)/(pý+aý)ý,t¥cosat,250,270
  28. 270 DATA1/((p+m)ý+ný),1/n¥e‰ï“sinnt,260,280
  29. 280 DATA(p+m)/((p+m)ý+ný),e‰ï“cosnt,270,290
  30. 290 DATA1/(p”-a”),1/2aþ¥(sinhat-sinat),280,300
  31. 300 DATAp/(p”-a”),1/2aý¥(coshat-cosat),290,310
  32. 310 DATApý/(p”-a”),1/2a¥(sinhat+sinat),300,320
  33. 320 DATApþ/(p”-a”),1/2¥(coshat+cosat),310,330
  34. 330 DATAp/(p”+4a”),1/2aý¥sinat¥sinhat,320,340
  35. 340 DATA4aþ/(p”+4a”),sinat¥coshat-cosat¥sinhat,330,350
  36. 350 DATA1/p¥((p-m)/(p+m)),-1+2e‰ï“,340,360
  37. 360 DATA1/pý¥((p-m)/(p+m)),2/m-t-2/m¥e‰ï“,350,360
  38. 10010 MODE8:DIM:x=10:y=360:r=x
  39. 10020 DEFCHR$(255)="7840384038"
  40. 10030 DEFCHR$(254)="40F8480000"
  41. 10040 DEFCHR$(253)="90B8900000"
  42. 10050 DEFCHR$(252)="7850502000"
  43. 10110 RESTORE(r)
  44. 10120 READm$,n$,b,c
  45. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  46. 10140 CLS:PRINT"F(p)=";m$;TAB(l);l$;n$;
  47. 10150 z=ASC(INPUT$(1,@))
  48. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  49. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  50. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  51. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  52. 10280 GOTO10150
  53.